home *** CD-ROM | disk | FTP | other *** search
- 10 sys7*4096:print"shades - filter control":print"to increase filter press +"
- 20 print"to decrease filter press -"
- 30 print"[145]filter = [157][157][157][157]";(fand255)
- 40 a=peek(203)
- 50 ifa=40thenf=f+1:sys2265:goto30
- 60 ifa=43thenf=f-1:sys2268:goto30
- 70 goto40
-